αXDEFINE C⊗C		⊗; To put ENTER_OPC's 2 to a line and delete blank lines.
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
α⊗Tβ⊗TαDα⊗C⊗C
αβD
αβ⊗L

αXDEFINE E⊗C		⊗;To generate ENTER_OPC's from list of UCODEs
αF,⊗C
αβ1αβXALIGN⊗C
αF,α⊗C β⊗CαβQα⊗C⊗B
αβ⊗CENTER_OPC ('α⊗Cα⊗TαD
α⊗Bα⊗BαFUα⊗C
αDα α α α αβI', α⊗C
α⊗TαDαF α⊗CαβI);α⊗C⊗C
αβ⊗L
αXDEFINE U⊗C		⊗;Selects next Ucode from list on p4 and fixes U2.
αβεM.CMD/N/3P⊗C
αFPα⊗Cα β⊗CαF⊗αα⊗Cβ⊗C⊗BαβD
αFUα⊗Cα β⊗CαF⊗⊗α⊗Cβ⊗C⊗BαβD
αβ4αβPαF,α⊗CαDβ⊗C⊗BαβAαβ-αβP
αβ3αβLαβC⊗CαβE
αβ2αβLα⊗TαDα⊗TαDα⊗TαDα⊗TαD⊗C
αβ⊗L
αXDEFINE U2⊗C
αβXF PINCαβ\UINC⊗Cαβ⊗L	⊗;Substitution macro to change PCODE to UCODE
IND,LAB,
AND,BGN,CHR,DIF,FJP,FLO,FLT,INN,INT,IOR,IXA,LCA,LDC,LOC,MOV,NEW,NOT,ODD,ORD,PAR,SGS,STP,TRC,UNI,

To use: Be on page and location to start substitutions
then type
	αβXEXECUTE M(2)<cr>
then
	αβZU<cr>
This takes the next PCODE instruction from list on page 4
	and fixes substitution command on page 3 of M.CMD
Make sure the correct substitution is to be made
then
	αH
then
	αβEXECUTE M(3)<cr>
then
	αβZU2<cr>
this makes 1 substitution

for repeated substitutions
	αβ∞αβY
or step one at a time with
	αβY
To go to next PCODE, repeat all of the above.  The codes are removed
from the list as used.